home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / DMAZE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  545b  |  39 lines

  1. ;dmaze  --
  2. ;finding a path through a maze using skeletons (w/o end pixels)
  3. ;
  4. #include timdefs.h
  5. parms
  6.   int windis
  7.   file timdemo
  8.   int helpitem
  9.   int hmode
  10. endparms
  11.  
  12. int err, fgtyp, bitplane
  13.  
  14. fgtyp = ver 1
  15. if (ver 1) == MK_CORTEX1
  16.   bitplane = 8
  17. else
  18.   bitplane = red
  19. endif
  20.  
  21. dest p
  22. show p
  23. ;err = chk lut 3
  24. *selut 3
  25. zoom 1
  26. tcopy maze p
  27. bit 8
  28. era 6 7
  29. help timdemo helpitem hmode
  30. *windispl h (windis+NO_DITHER+WINLUT3)
  31. lskz bitplane
  32. *windispl i (windis+NO_DITHER)
  33.  
  34. if bitplane == 8
  35.   lut 3 1 5 6
  36. endif
  37. stop
  38. 
  39.